home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / rcheck.arc / BUDX.CMD < prev    next >
Encoding:
Text File  |  1984-12-18  |  768 b   |  26 lines
  1. IF MAIN NE 3 THEN
  2.    NEWPAGE
  3.    TYPE b:BUDCATDT.MNU
  4.    FILLIN BEGDAT USING "ENTER STARTING DATE  "  AT  6 20
  5.    FILLIN ENDDAT USING "ENTER ENDING DATE    "  AT 12 20
  6. ENDIF
  7. IF MAIN = 3 THEN
  8.    TYPE b:BUDCATDT.MNU
  9.    FILLIN BEGDAT USING "ENTER STARTING DATE  " AT 10 20
  10.    FILLIN ENDDAT USING "ENTER ENDING DATE    " AT 16 20
  11. ENDIF
  12. NEW
  13. TYPE b:BUDCAT1.MNU
  14. FILLIN BUDC USING "ENTER BUDGET CATAGORY  " AT 4 20
  15. INPUT b:BUDCATDT.CMD
  16. NEW
  17. SET VAR BEG = "BEGINNING DATE TO BE USED = "
  18. SET VAR END = "ENDING DATE TO BE USED =    "
  19. SHOW VAR BEG AT 2 20
  20. SHOW VAR END AT 7 20
  21. SHOW VAR BEGDAT AT 2 40
  22. SHOW VAR ENDDAT AT 7 40
  23. PRINT BUDCAT SORTED BY DATE TRANCODE DATE CKNUM DESCR +
  24.       WHERE BUDCAT = .BUDC AND DATE GE .BEGDAT AND DATE LE .ENDDAT
  25. ~
  26.